home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
programr
/
vbasic
/
health.exe
/
ASSESS1.FRM
< prev
next >
Wrap
Text File
|
1993-07-22
|
30KB
|
831 lines
VERSION 2.00
Begin Form assess1
AutoRedraw = -1 'True
BackColor = &H00FFFF00&
BorderStyle = 1 'Fixed Single
ClientHeight = 6915
ClientLeft = 210
ClientTop = 405
ClientWidth = 9525
ControlBox = 0 'False
Height = 7320
Left = 150
LinkMode = 1 'Source
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6915
ScaleWidth = 9525
Tag = "admission"
Top = 60
Width = 9645
Begin SSFrame Frame3D1
Alignment = 2 'Center
Caption = "Community Memorial Admission Assessment"
Font3D = 2 'Raised w/heavy shading
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 13.5
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00000000&
Height = 6855
Left = 0
TabIndex = 2
Top = -120
Width = 9615
Begin AniPushButton AniButton2
BackColor = &H00FFFFFF&
Height = 480
Left = 3960
Picture = ASSESS1.FRX:0000
Speed = 162
TabIndex = 29
Top = 6120
Width = 465
End
Begin AniPushButton AniButton1
BackColor = &H00C0C0C0&
Caption = "Next Page"
Height = 615
Index = 0
Left = 5040
Picture = ASSESS1.FRX:05E2
Speed = 162
TabIndex = 28
TextPosition = 2 'Left
Top = 6000
Width = 1455
End
Begin AniPushButton AniButton1
BackColor = &H00C0C0C0&
Caption = "Back Page"
Height = 615
Index = 1
Left = 720
Picture = ASSESS1.FRX:148E
Speed = 162
TabIndex = 41
TextPosition = 1 'Right
Top = 6000
Width = 1455
End
Begin PictureBox Picture2
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 2535
Left = 120
ScaleHeight = 4.774
ScaleMode = 0 'User
ScaleWidth = 5.58
TabIndex = 4
Top = 3360
Width = 8415
Begin PictureBox Picture6
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 1815
Left = 4560
ScaleHeight = 1815
ScaleWidth = 3255
TabIndex = 15
Top = 120
Width = 3255
Begin SSCheck Check3D3
Caption = "INTRODUCED TO ROOMMATE"
Font3D = 0 'None
ForeColor = &H00FF0000&
Height = 375
Index = 8
Left = 2040
TabIndex = 26
Top = 1080
Width = 495
End
Begin SSCheck Check3D3
Caption = "PATIENT HANDBOOK"
Font3D = 0 'None
ForeColor = &H00FF0000&
Height = 375
Index = 7
Left = 1440
TabIndex = 25
Top = 1080
Width = 495
End
Begin SSCheck Check3D3
Caption = "VALUABLES IN POSSESSION"
Font3D = 0 'None
ForeColor = &H00FF0000&
Height = 375
Index = 6
Left = 840
TabIndex = 24
Top = 1080
Width = 495
End
Begin SSCheck Check3D2
Caption = "EXPLAINED"
Font3D = 0 'None
ForeColor = &H00FF0000&
Height = 375
Left = 120
TabIndex = 17
Top = 1080
Width = 255
End
Begin SSCheck Check3D3
Caption = "VALUABLES IN SAFE"
Font3D = 0 'None
ForeColor = &H00FF0000&
Height = 375
Index = 5
Left = 2040
TabIndex = 23
Top = 600
Width = 495
End
Begin SSCheck Check3D3
Caption = "VALUABLES SENT HOME"
Font3D = 0 'None
ForeColor = &H00FF0000&
Height = 375
Index = 4
Left = 1440
TabIndex = 22
Top = 600
Width = 495
End
Begin SSCheck Check3D3
Caption = "USE OF PHONE"
Font3D = 0 'None
ForeColor = &H00FF0000&
Height = 375
Index = 3
Left = 840
TabIndex = 21
Top = 600
Width = 495
End
Begin SSCheck Check3D3
Caption = "BED ADJUSTMENT OPERATION"
Font3D = 0 'None
ForeColor = &H00FF0000&
Height = 375
Index = 2
Left = 2040
TabIndex = 20
Top = 120
Width = 495
End
Begin SSCheck Check3D3
Caption = "CALL LIGHT IN REACH"
Font3D = 0 'None
ForeColor = &H00FF0000&
Height = 375
Index = 1
Left = 1440
TabIndex = 19
Top = 120
Width = 495
End
Begin SSCheck Check3D3
Caption = "VISITING HOURS"
Font3D = 0 'None
ForeColor = &H00FF0000&
Height = 375
Index = 0
Left = 840
TabIndex = 18
Top = 120
Width = 495
End
End
Begin PictureBox Picture5
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 2175
Left = 360
ScaleHeight = 2175
ScaleWidth = 3135
TabIndex = 14
Top = -240
Width = 3135
Begin SSOption Option3D10
Caption = "UNABLE TO TAKE HISTORY"
Font3D = 0 'None
ForeColor = &H00000000&
Height = 375
Index = 4
Left = 720
TabIndex = 40
Top = 1440
Width = 855
End
Begin SSOption Option3D10
Caption = "PREVIOUS MEDICAL RECORD"
Font3D = 0 'None
ForeColor = &H00000000&
Height = 375
Index = 3
Left = 1080
TabIndex = 39
Top = 1200
Width = 855
End
Begin SSOption Option3D10
Caption = "FRIEND"
Font3D = 0 'None
ForeColor = &H00000000&
Height = 375
Index = 2
Left = 600
TabIndex = 38
Top = 840
Width = 855
End
Begin SSOption Option3D10
Caption = "FAMILY MEMBER"
Font3D = 0 'None
ForeColor = &H00000000&
Height = 375
Index = 1
Left = 720
TabIndex = 37
Top = 600
Width = 855
End
Begin SSOption Option3D10
Caption = "PATIENT"
Font3D = 0 'None
ForeColor = &H00000000&
Height = 375
Index = 0
Left = 720
TabIndex = 16
Top = 240
Width = 855
End
Begin Label Label5
BackColor = &H00C0C0C0&
Caption = "PATIENT UNRESPONSIVE "
ForeColor = &H00000000&
Height = 375
Left = 600
TabIndex = 27
Top = 1800
Width = 1695
End
End
End
Begin PictureBox Picture1
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 2895
Left = 360
ScaleHeight = 5
ScaleMode = 0 'User
ScaleWidth = 5.5
TabIndex = 3
Top = 480
Width = 8775
Begin SSCheck Check3D1
Caption = " CORRECT IDENTIFICATION BAND"
Font3D = 0 'None
ForeColor = &H00FF0000&
Height = 255
Left = 240
TabIndex = 9
Top = 2520
Width = 3375
End
Begin PictureBox Picture4
BackColor = &H00C0C0C0&
Height = 1695
Left = 3840
ScaleHeight = 3
ScaleMode = 0 'User
ScaleWidth = 2.5
TabIndex = 6
Top = 960
Width = 3375
Begin SSOption Option3D4
Caption = "DOCTOR'S OFFICE"
Font3D = 0 'None
ForeColor = &H00000000&
Height = 495
Index = 2
Left = 600
TabIndex = 33
Top = 1080
Width = 1095
End
Begin SSOption Option3D4
Caption = "OTHER"
Font3D = 0 'None
ForeColor = &H00000000&
Height = 495
Index = 5
Left = 1800
TabIndex = 36
Top = 960
Width = 1095
End
Begin SSOption Option3D4
Caption = "ER / OPD"
Font3D = 0 'None
ForeColor = &H00000000&
Height = 495
Index = 1
Left = 720
TabIndex = 32
Top = 600
Width = 1095
End
Begin SSOption Option3D4
Caption = "RECOVERY ROOM"
Font3D = 0 'None
ForeColor = &H00000000&
Height = 495
Index = 4
Left = 1680
TabIndex = 35
Top = 480
Width = 1095
End
Begin SSOption Option3D4
Caption = "NURSING HOME"
Font3D = 0 'None
ForeColor = &H00000000&
Height = 495
Index = 3
Left = 1560
TabIndex = 34
Top = 120
Width = 1095
End
Begin SSOption Option3D4
Caption = "HOME"
Font3D = 0 'None
ForeColor = &H00000000&
Height = 495
Index = 0
Left = 840
TabIndex = 8
Top = 120
Width = 1095
End
Begin Label Label4
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "Label4"
Height = 975
Left = 240
TabIndex = 12
Top = 240
Width = 375
End
End
Begin PictureBox Picture3
BackColor = &H00C0C0C0&
Height = 1695
Left = 240
ScaleHeight = 3
ScaleMode = 0 'User
ScaleWidth = 2.5
TabIndex = 5
Top = 840
Width = 3135
Begin SSOption Option3D1
Caption = "STRETCHER"
Font3D = 0 'None
ForeColor = &H00000000&
Height = 375
Index = 2
Left = 1560
TabIndex = 31
Top = 1080
Width = 495
End
Begin SSOption Option3D1
Caption = "WHEELCHAIR"
Font3D = 0 'None
ForeColor = &H00000000&
Height = 375
Index = 1
Left = 1560
TabIndex = 30
Top = 600
Width = 495
End
Begin SSOption Option3D1
Caption = "AMBULATORY"
Font3D = 0 'None
ForeColor = &H00000000&
Height = 375
Index = 0
Left = 1680
TabIndex = 7
Top = 120
Width = 495
End
Begin Label Label3
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "Label3"
Height = 975
Left = 360
TabIndex = 11
Top = 240
Width = 735
End
End
Begin VHedit HEdit2
Alignment = 2 'Center
Enabled = 0 'False
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 435
InflateBottom = 0.466
InflateLeft = 0.169
InflateRight = 0.169
InflateTop = 0.466
Left = 5040
TabIndex = 44
Text = "HEdit2"
Top = 120
Version = 268435458
Visible = 0 'False
Width = 2775
End
Begin VBedit BEdit1
BackColor = &H00FFFFFF&
CellHeight = 0.829
CellWidth = 0.226
CombBaseLine = 0.674
CombEndHeight = 0.207
CombEndMarker = 0 'False
CombHeight = 0.104
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
InflateBottom = 0.311
InflateLeft = 0.113
InflateRight = 0.113
InflateTop = 0.415
InkWidth = 2
Left = 1320
OnTap = -1 'True
TabIndex = 0
Text = "BEdit1"
Top = 120
Version = 268435458
Width = 2655
End
Begin AniPushButton AniButton3
BackColor = &H00C0C0C0&
Cycle = 2 '2-state 1/2 & 1/2
Height = 480
Index = 0
Left = 240
PictDrawMode = 1 'Autosize control
Picture = ASSESS1.FRX:233A
TabIndex = 42
Top = 120
Width = 480
End
Begin VBedit BEdit2
BackColor = &H00FFFFFF&
CellHeight = 0.829
CellWidth = 0.226
CombBaseLine = 0.674
CombEndHeight = 0.207
CombEndMarker = 0 'False
CombHeight = 0.104
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
InflateBottom = 0.311
InflateLeft = 0.113
InflateRight = 0.113
InflateTop = 0.415
InkWidth = 2
Left = 5400
OnTap = -1 'True
TabIndex = 1
Text = "BEdit2"
Top = 0
Version = 268435458
Width = 3015
End
Begin VHedit HEdit1
Alignment = 2 'Center
CharSet = 16412
Enabled = 0 'False
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 18
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 435
InflateBottom = 0.466
InflateLeft = 0.169
InflateRight = 0.169
InflateTop = 0.466
Left = 1320
TabIndex = 43
Text = "HEdit1"
Top = 0
Version = 268435458
Visible = 0 'False
Width = 2415
End
Begin Label Label2
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "Label2"
Height = 375
Left = 4560
TabIndex = 10
Top = 360
Width = 495
End
Begin Label Label1
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "Label1"
Height = 375
Left = 960
TabIndex = 13
Top = 240
Width = 255
End
End
End
End
Dim group As Integer
Sub AniButton1_Click (index As Integer)
If smartform(2) Then
If index = 0 Then
assess2.Show
ASSESS1.Hide
Else
idform.Show
ASSESS1.Hide
End If
Else
formcheck "Admission"
End If
End Sub
Sub AniButton2_Click ()
If smartform(2) Then
menumode ASSESS1
Else
formcheck "Admission"
End If
End Sub
Sub AniButton3_Click (index As Integer)
Select Case anibutton3(index).value
Case 2
editswap bedit1, hedit1, 1
hedit1.visible = -1
bedit1.visible = 0
editswap bedit2, hedit2, 1
hedit2.visible = -1
bedit2.visible = 0
temprecord.tyme = bedit2.text
temprecord.dayt = bedit1.text
Case 1
editswap bedit1, hedit1, 2
hedit1.visible = 0
bedit1.visible = -1
editswap bedit2, hedit2, 2
hedit2.visible = 0
bedit2.visible = -1
End Select
End Sub
Sub BEdit1_Update ()
'bedit1.text = " / /"
If bedit1.selstart = 7 Then
If Mid$(bedit1.text, 3, 1) <> "/" Or Mid$(bedit1.text, 6, 1) <> "/" Then
For n = 1 To Len(bedit1.text)
If n = 3 Or n = 6 Then
a$ = a$ + "/"
'a$ = a$ + Mid$(bedit1.text, n, 1)
Else
a$ = a$ + Mid$(bedit1.text, n, 1)
End If
Next n
bedit1.text = a$
End If
bedit1.selstart = 8
End If
End Sub
Sub BEdit2_Update ()
'bedit2.text = " : : "
If bedit2.selstart = 7 Then
If Mid$(bedit2.text, 3, 1) <> ":" Or Mid$(bedit2.text, 6, 1) <> ":" Then
For n = 1 To Len(bedit2.text)
If n = 3 Or n = 6 Then
a$ = a$ + ":"
'a$ = a$ + Mid$(bedit2.text, n, 1)
Else
a$ = a$ + Mid$(bedit2.text, n, 1)
End If
Next n
bedit2.text = a$
End If
bedit2.selstart = 8
End If
End Sub
Sub Check3D1_Click (value As Integer)
If check3d1.value = -1 Then
temprecord.chk1 = -1
check3d1.forecolor = &H0&
Else
check3d1.forecolor = &HFF0000
End If
End Sub
Sub Check3D2_Click (value As Integer)
If check3d2.value = -1 Then
temprecord.chk2 = -1
check3d2.forecolor = &H0&
Else
check3d2.forecolor = &HFF0000
End If
End Sub
Sub Check3D3_Click (index As Integer, value As Integer)
If check3d3(index).value = -1 Then
temprecord.chicks.chek1 = -1
check3d3(index).forecolor = &H0&
Else
check3d3(index).forecolor = &HFF0000
End If
check3d2.SetFocus
End Sub
Sub Form_Load ()
bedit1.charset = ALC_NUMERIC Or ALC_PUNC Or ALC_MATH Or ALC_GESTURE
bedit2.charset = ALC_NUMERIC Or ALC_PUNC Or ALC_MATH Or ALC_GESTURE
hedit1.charset = ALC_NUMERIC Or ALC_PUNC Or ALC_MATH Or ALC_GESTURE
hedit2.charset = ALC_NUMERIC Or ALC_PUNC Or ALC_MATH Or ALC_GESTURE
For n = 0 To 2
option3d1(n).forecolor = &HFF0000
Next n
For n = 0 To 5
option3d4(n).forecolor = &HFF0000
Next n
For n = 0 To 4
option3d10(n).forecolor = &HFF0000
Next n
label5.forecolor = &HFF0000
ASSESS1.Move -screen.width - 10, 0, screen.width, screen.height
bedit1.text = " / /"
bedit2.text = " : :"
frame3d1.caption = NextCompanyCaption$
frame3d1.Move ASSESS1.scaleleft, ASSESS1.scaletop, ASSESS1.scalewidth, ASSESS1.scaleheight
picture1.Move frame3d1.left, frame3d1.top + 2.5 * TextHeight(frame3d1.caption), frame3d1.width, frame3d1.height \ 2 - 2 * TextHeight(frame3d1.caption)
picture2.Move frame3d1.left, frame3d1.height \ 2 + TextHeight(check3d1.caption), frame3d1.width, frame3d1.height \ 2 - anibutton1(0).height
bedit1.Move .5, 0, picture1.scalewidth / 3.1, picture1.scaleheight / 6
hedit1.Move .5, 0, picture1.scalewidth / 3.1, picture1.scaleheight / 5.5
label1.fontname = "arial"
label1.fontsize = 12
label1.caption = "DATE"
label1.Move 0, 0, picture1.scalewidth / 12, picture1.scaleheight / 6
anibutton3(0).Move bedit1.width + bedit1.left + anibutton3(0).width, 0
bedit2.Move 3.5, 0, picture1.scalewidth / 3.1, picture1.scaleheight / 6
hedit2.Move 3.5, 0, picture1.scalewidth / 3.1, picture1.scaleheight / 5.5
label2.fontname = "arial"
label2.fontsize = 12
label2.caption = "TIME"
label2.Move 3, 0, picture1.scalewidth / 12, picture1.scaleheight / 6
picture3.Move 0, 1, picture1.scalewidth / 3, picture1.scaleheight * .66
picture4.Move 2, 1, picture1.scalewidth * .67, picture1.scaleheight * .66
check3d1.Move 1, 5
anibutton1(0).Move frame3d1.width - anibutton1(0).width * 1.1, frame3d1.height - anibutton1(0).height * 1.1
anibutton1(1).Move .1 * anibutton1(1).width, frame3d1.height - anibutton1(0).height * 1.1
anibutton2.Move (frame3d1.width - anibutton2.width) / 2, frame3d1.height - anibutton2.height * 1.3
picture3.Scale (1, 1)-(3, 4)
label3.Move 1, 1, picture3.scalewidth / 2, picture3.scaleheight / 2
label3.fontname = "arial"
label3.fontsize = 12
label3.caption = " MODE OF ADMISSION"
option3d1(0).Move 2, 1, picture3.scalewidth / 2, picture3.scaleheight / 3
option3d1(1).Move 2, 2, picture3.scalewidth / 2, picture3.scaleheight / 3
option3d1(2).Move 2, 3, picture3.scalewidth / 2, picture3.scaleheight / 3
picture4.Scale (1, 1)-(4, 4)
label4.Move 1, 1, picture4.scalewidth / 3, picture4.scaleheight / 2
label4.fontname = "arial"
label4.fontsize = 12
label4.caption = " ADMITTED FROM:"
option3d4(0).Move 2, 1, picture4.scalewidth * .33, picture3.scaleheight / 3
option3d4(1).Move 2, 2, picture4.scalewidth * .33, picture3.scaleheight / 3
option3d4(2).Move 2, 3, picture4.scalewidth * .33, picture3.scaleheight / 3
option3d4(3).Move 3, 1, picture4.scalewidth * .33, picture3.scaleheight / 3
option3d4(4).Move 3, 2, picture4.scalewidth * .33, picture3.scaleheight / 3
option3d4(5).Move 3, 3, picture4.scalewidth * .33, picture3.scaleheight / 3
picture2.Scale (1, 1)-(5, 2)
picture5.Move 1, 1, picture2.scalewidth / 2, picture2.scaleheight
picture6.Move 3, 1, picture2.scalewidth / 2, picture2.scaleheight
picture5.Scale (1, 1)-(5, 10): picture6.Scale (1, 1)-(5, 12)
picture5.fontname = "arial": picture6.fontname = "arial"
picture5.fontsize = 12: picture6.fontsize = 12
picture5.currentx = 1: picture5.currenty = 1
picture6.currentx = 1: picture6.currenty = 1
picture5.autoredraw = -1: picture6.autoredraw = -1
picture5.Print " INFORMATION GIVEN BY:"
picture6.Print "ORIENTATION TO ROOM "
option3d10(0).Move 1, 2, picture5.scalewidth, picture5.scaleheight / 8
option3d10(1).Move 1, 3, picture5.scalewidth, picture5.scaleheight / 8
option3d10(2).Move 1, 4, picture5.scalewidth, picture5.scaleheight / 8
option3d10(3).Move 1, 5, picture5.scalewidth, picture5.scaleheight / 8
option3d10(4).Move 1, 6, picture5.scalewidth, picture5.scaleheight / 8
label5.caption = " PATIENT UNRESPONSIVE OR CONFUSED" + Chr$(13) + Chr$(10) + " NOT ACCOMPANIED BY FAMILY OR FRIEND"
label5.Move 1, 7.1, picture5.scalewidth, picture5.scaleheight / 7
check3d2.Move 3.5, 1, picture6.scalewidth, picture6.scaleheight / 10
For n = 1 To 9
check3d3(n - 1).Move 1, n + 1, picture6.scalewidth, picture6.scaleheight / 10
Next n
ASSESS1.Move 0, 0
End Sub
Sub Option3D1_Click (index As Integer, value As Integer)
option3d1(index).forecolor = &H0&
group = 3
'highlight assess1, group, index
temprecord.theoption.opt1 = -1
If Not nofocuscalls Then check3d1.SetFocus
End Sub
Sub Option3D10_Click (index As Integer, value As Integer)
option3d10(index).forecolor = &H0&
If index = 4 Then label5.forecolor = &H0&
group = 5
'highlight assess1, group, index
temprecord.theoption.opt10 = -1
If Not nofocuscalls Then check3d1.SetFocus
End Sub
Sub Option3D4_Click (index As Integer, value As Integer)
option3d4(index).forecolor = &H0&
group = 6
'highlight assess1, group, index
If index = 5 Then
BEditform.label1.tag = " Enter Location Prior To Admission"
BEditform.command2.tag = " Re-Enter Location Prior To Admission"
BEditform.Show 1
End If
temprecord.theoption.opt4 = -1
If Not nofocuscalls Then check3d1.SetFocus
End Sub
Sub Picture1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
'label1.caption = Str$(x) + " " + Str$(y)
End Sub
